Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '?', '?', '?', '?',
   '', '', '');

Define WidthList
 (  14,  15,  16,  17,  15,  15,  17,  17,   8,  11,  16,  13,  20,  16,  17,  15,
    17,  15,  12,  13,  17,  15,  20,  15,  13,  13,  12,  12,  11,  12,  11,   8,
    12,  12,   7,   7,  11,   7,  17,  12,  12,  12,  12,  10,   9,   7,  12,  11,
    15,  11,  11,   9,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  13,   7,
     7,  22,  12,  12,  17,  10,  18,  12,   8,   8,   8,  12,  16,  16,  10,  10,
    10,  10,   8,   8,   5,  10,   6,  16,   6,  16,   7,  12,  12,  12,  12,  12,
    12,  11,  15);

Define RectList
 ( (   0,  0, 20, 30), (  21,  0, 18, 30), (  40,  0, 19, 30), (  60,  0, 21, 30),
   (  82,  0, 19, 30), ( 102,  0, 20, 30), ( 123,  0, 21, 30), ( 145,  0, 24, 30),
   ( 170,  0, 15, 30), ( 186,  0, 19, 30), ( 206,  0, 23, 30), ( 230,  0, 17, 30),
   ( 248,  0, 30, 30), ( 279,  0, 25, 30), ( 305,  0, 20, 30), ( 326,  0, 19, 30),
   ( 346,  0, 20, 30), ( 367,  0, 20, 30), ( 388,  0, 17, 30), ( 406,  0, 19, 30),
   ( 426,  0, 22, 30), ( 449,  0, 20, 30), ( 470,  0, 25, 30), ( 496,  0, 24, 30),
   ( 521,  0, 19, 30), ( 541,  0, 18, 30), ( 560,  0, 17, 30), ( 578,  0, 15, 30),
   ( 594,  0, 13, 30), ( 608,  0, 19, 30), ( 628,  0, 13, 30), ( 642,  0, 20, 30),
   ( 663,  0, 18, 30), ( 682,  0, 16, 30), ( 699,  0, 10, 30), ( 710,  0, 15, 30),
   ( 726,  0, 16, 30), ( 743,  0, 12, 30), ( 756,  0, 21, 30), ( 778,  0, 16, 30),
   ( 795,  0, 14, 30), ( 810,  0, 20, 30), ( 831,  0, 17, 30), ( 849,  0, 13, 30),
   ( 863,  0, 13, 30), ( 877,  0, 11, 30), ( 889,  0, 17, 30), ( 907,  0, 14, 30),
   ( 922,  0, 19, 30), ( 942,  0, 16, 30), ( 959,  0, 17, 30), ( 977,  0, 14, 30),
   ( 992,  0, 15, 30), (1008,  0, 14, 30), (1023,  0, 15, 30), (1039,  0, 14, 30),
   (1054,  0, 16, 30), (1071,  0, 15, 30), (1087,  0, 15, 30), (1103,  0, 14, 30),
   (1118,  0, 15, 30), (1134,  0, 15, 30), (1150,  0, 17, 30), (1168,  0,  7, 30),
   (1176,  0,  9, 30), (1186,  0, 24, 30), (1211,  0, 15, 30), (1227,  0, 15, 30),
   (1243,  0, 23, 30), (1267,  0, 15, 30), (1283,  0, 21, 30), (1305,  0, 13, 30),
   (1319,  0, 13, 30), (1333,  0, 13, 30), (1347,  0, 11, 30), (1359,  0, 17, 30),
   (1377,  0, 16, 30), (1394,  0, 17, 30), (1412,  0, 16, 30), (1429,  0, 14, 30),
   (1444,  0, 16, 30), (1461,  0, 14, 30), (1476,  0,  9, 30), (1486,  0,  8, 30),
   (1495,  0,  7, 30), (1503,  0, 11, 30), (1515,  0,  7, 30), (1523,  0, 16, 30),
   (1540,  0,  6, 30), (1547,  0, 16, 30), (1564,  0, 14, 30), (1579,  0, 13, 30),
   (1593,  0, 13, 30), (1607,  0, 13, 30), (1621,  0, 13, 30), (1635,  0, 13, 30),
   (1649,  0, 23, 30), (1673,  0, 17, 30), (1691,  0, 26, 30));

Define OffsetList
 ( (-5, 0), (-2, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-1, 0), (-3, 0),
   (-3, 0), (-3, 0), (-3, 0), (-2, 0), (-5, 0), (-3, 0), (-1, 0), (-2, 0),
   (-1, 0), (-3, 0), (-2, 0), (-1, 0), ( 0, 0), ( 0, 0), ( 0, 0), (-4, 0),
   (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-1, 0), (-2, 0), (-1, 0), (-6, 0),
   (-2, 0), (-2, 0), (-1, 0), (-6, 0), (-2, 0), (-1, 0), (-2, 0), (-2, 0),
   (-1, 0), (-6, 0), (-2, 0), (-1, 0), (-2, 0), (-1, 0), (-2, 0), (-1, 0),
   (-2, 0), (-3, 0), (-4, 0), (-3, 0), (-1, 0), (-1, 0), (-2, 0), (-1, 0),
   (-2, 0), (-1, 0), (-1, 0), ( 0, 0), (-1, 0), (-1, 0), (-2, 0), ( 2, 0),
   ( 0, 0), (-1, 0), (-1, 0), (-1, 0), (-2, 0), (-1, 0), (-1, 0), ( 1, 0),
   ( 0, 0), (-5, 0), (-1, 0), (-3, 0), ( 1, 0), ( 0, 0), (-2, 0), ( 0, 0),
   (-4, 0), (-4, 0), (-2, 0), (-1, 0), ( 1, 0), ( 1, 0), (-2, 0), ( 0, 0),
   (-1, 0), ( 0, 0), (-3, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   (-5, 0), (-3, 0), (-6, 0));

Define KerningPairs
 ("11","AT","AV","AW","AY","Av","Aw","Ay","F,","F.","FA","LV","LW","Ly","P,","P.",
  "PA","T,","T-","T.","T:","T;","TA","Ta","Tc","Te","Ti","To","Tr","Ts","Tu","Tw",
  "Ty","V,","V-","V.","V:","V;","VA","VO","Va","Ve","Vi","Vo","Vr","Vu","Vy","W,",
  "W-","W.","W:","W;","WA","Wa","We","Wi","Wo","Wr","Wu","Wy","Y,","Y-","Y.","Y:",
  "Y;","YA","Ya","Ye","Yi","Yo","Yp","Yq","Yu","Yv","r,","r.","rc","rd","re","rg",
  "ro","rq","v,","v.","w,","w.","y,","y.","G,","G.","St");

Define KerningValues

 (  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -3,  -3,  -3,  -1,  -1,  -1,  -3,  -3,

    -3,  -2,  -2,  -2,  -1,  -2,  -2,  -2,  -2,  -2,  -1,  -2,  -1,  -2,  -1,  -2,

    -2,  -3,  -1,  -3,  -2,  -2,  -2,  -1,  -3,  -3,  -2,  -3,  -2,  -2,  -2,  -2,

    -1,  -2,  -2,  -2,  -2,  -2,  -2,  -1,  -2,  -1,  -1,  -2,  -2,  -2,  -2,  -2,

    -2,  -2,  -2,  -2,  -2,  -2,  -2,  -3,  -2,  -2,  -3,  -3,  -1,  -1,  -1,  -1,

    -1,  -1,  -2,  -2,  -2,  -2,  -1,  -1,  -3,  -3,  -1);

CreateLayer               Main;
LayerSetImage             Main 'TimesNewRoman18Italics';
LayerSetAscent            Main 23;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (6);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 2;
LayerSetLineSpacingOffset Main 2;
LayerSetPointSize         Main 18;

SetDefaultPointSize  18;
